EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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LL III] BBBBBBBB MM MM AAAAAA CCCCCCCC § RRRRRRRR 000000 
LL 11111 BB BB MM MM AMAAAA CCCCCCCC RRRRRRRR 000000 
LL I] BB BB MMMM MMMM AA AA CC RR RR 00 00 
LL I] BB BB MMMM MMMM AA AA CC RR RR 00 00 
LL I] BB BB MM MM MM AA AA CC RR RR 00 

LL I] 8B BB MM MM MM AA AA CC RR RR 00 

LL I] BBBBBBBB MM MM AA AA CC RRRRRRRR 00 

LL I] MM MM AA AA CC RRRRRRRR 00 

LL I] BB BB MM MM AAAAAAAAAA CC RR RR 00 

LL I] BB BB MM MM AAAAAAAAAA (CC RR RR 00 

LL Il BB BB MM MM AA AA CC RR RR 00 

LL Il BB BB MM MM AA AA CC RR RR 00 00 
LLLLLLLLLL III! BBBBBBBB MM MM AA AA cccccccc RR RR 000000 
LLLLLLLLLL M111! MM MM AA BA Ccccccccc RR RR 000000 
RRRRRRRR EEEEEEEEEE QQQQaQa 

RRRRRRRR EEEEEEEEEE QQQQQQ 

RR RR EE QQ QQ 

RR RR EE QQ QQ 

RR RR EE QQ QQ 

RR RR EE QQ QQ 

RRRRRRRR EEEEEEEE QQ QQ 

RRRRRRRR EEEEEEEE QQ QQ 

RR RR EE QQ QQ QQ 

RR RR EE QQ QQ QQ 

RR RR EE QQ QQ 

RR RR EE QQ QQ 

RR RR EEEEEEEEEE QQQQ QQ 

RR RR EEEEEEEEEE QQQag QQ 
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! Macros for the Run-Time $ Sor ery 44es facility 
; File: LIBMACROS.REQ, Edit: SBL10 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


:* INCLUSION SOFTWARE OR ANY O 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 
; ER PERSON, NO TITLE TO AND OWNERSHIP OF TH 
!* TRANSFERRED. 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
- oeePonaTion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


E 
T 


i 
Author: Steven B. Lionel, 16-August-1982 


1 
! 
: 1-001 = Original. SBL 16-August-1982 : 

! 1-002 = Add macros to read, write and copy with autoincrement. 
! SBL 12-Apr-1983 

1-003 = Add $SLIBSMOVQ. SBL 17-June-1983 


'¢ 
: This file contains macros which are available to any BLISS module that 
: REQUIRES LIBPROLOG.REQ. Macros in this file are useful to any LIBS — 
: module written in BLISS. ALL macros defined MUST have names that begin 
; with “$L1B$"". 


RRR RARER ARERR E RARER AAA AAR AAA EAAAEAT ERATE 
' 


See eee EERE AREA AEE AAA AA AAA RARER EAA 


* 
® 
® 
® 
® 
® 
& 
a 
® 
® 
® 
® 
* 
* 
*® 
® 
® 
® 
*® 
® 
*® 
® 
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+ 
SLIBSVALIDATE_ARGCOUNT 
Macro used to check that a LIBS precedure was called with the correct 


number of arguments. If the test fails, the procedure returns with the 
failure status LIBS_WRONUMARG. 


mat: 
SLIBSVALIDATE_ARGCOUNT (Lo, hi); 


lo 


ig Lowest number of arguments which are valid (0-255) 


Highest number of arguments which are valid (0-255) 


ACRO 
SLIBSVALIDATE_ARGCOUNT (lo, hi) = 
BEGIN 


BUILTIN 
ACTUALCOUNT: 
EXTERNAL LITERAL 
LIB$_WRONUMARG; 
ZIF lo NEQ hi 
XTHEN 
ZIF lo NEQ 0 
XTHEN 
LOCAL 
DIFF: BYTE; 
DIFF = ACTUALCOUNT () = Lo; 
IF .DIFF GTRU (hi = Lo) 
THEN 
RETURN LIB$_WRONUMARG; 


ZELS 
IF ACTUALCOUNT () GTRU hi 


sa RETURN LIBS$_WRONUMARG; 


ZELSE 
IF ACTUALCOUNT () NEQU lo 


vi RETURN LIB$_WRONUMARG; 


END &; 
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1+ 
} Macros to read, write and copy with autoincrement. 


MACRO 

SLIBSRBYTE_A(P) = (P = .P+1; .(.P=1)<0, 8>) %, 
SLIBSRWORD-A(P) = (P = .P+2; .(.P=2)<0.16>) 2%. 
SLIBSRLONG_A(P) = (P = .P#4; .(.P=4)<0,32>) %. 
SLIBSWBYTE_A(P) = (P=.P+1; .?=1)<0,8> X% 
SLIBSWWORD-A(P) = (P=.P+2: .P= 72) <0. 169 # 
SLIBSWLONG_A(P) = (P=.P+4; P=4)<0.3 > x, 
SLIBSCOPY_BYTE_A (S,D) = (SLIBSWBYTE_A(D)=S$LIBSRBYTE_A(S)) %, 
SLIBSCOPY-WORD-A (S.D) = (SLIBSWWORDA(D)=$LIBS$RWORD-A(S)) %, 
SLIBSCOPY-LONG_A (S,D) = (S$LIBSWLONG-A(D)=S$LIB$RLONG_A(S)) %, 
SLIBSCOPY"QUAD-A (S.D) = ((.D)<0, 32>, (.$)<0, 32>; 

(.D+43<0, 32>=. (.5+4)<0, 32>; D=.D+B; S=.$48) &; 


te 


Macro to move a quadword with a MOVQ instruction. 


MACRO 
SLIBSMOVQ (S,D) = 
BEGIN 
(D) = .(S); 
((D)4#4) = .((8)4+4); 
END %; 


! End of file LIBMACROS.REQ 


oO 
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